home *** CD-ROM | disk | FTP | other *** search
/ SunSoft Catalyst CDWARE 1996 May to August / Catalyst CDWARE 1996 May to August.iso / .products / .bin / httpd / Solaris_2 / reqform.pl < prev    next >
Perl Script  |  1995-11-22  |  5KB  |  182 lines
  1. #!/tmp/httpd/.cgi-bin/perl
  2.  
  3. #################################################
  4. # Sends information request to appropriate place
  5. #################################################
  6. #RogueWave
  7.  
  8. #unshift(@INC, "http://localhost:7999/cgi-bin");
  9. unshift(@INC, "./");
  10. require "cgi-lib";
  11. local(%cgi_params);
  12. &ReadParse(*cgi_params);
  13.  
  14. $fname = $cgi_params{"FNAME"};
  15. $subject = $cgi_params{"SUBJECT"};
  16. $lname = $cgi_params{"LNAME"};
  17. $title = $cgi_params{"TITLE"};
  18. $company = $cgi_params{"COMPANY"};
  19. $address1 = $cgi_params{"ADDRESS1"};
  20. $address2 = $cgi_params{"ADDRESS2"};
  21. $city = $cgi_params{"CITY"};
  22. $state = $cgi_params{"STATE"};
  23. $zipcode = $cgi_params{"ZIPCODE"};
  24. $telephone = $cgi_params{"TELEPHONE"};
  25. $fax = $cgi_params{"FAX"};
  26. $email = $cgi_params{"EMAIL"};
  27. $tools = $cgi_params{"TOOLS"};
  28. $heap = $cgi_params{"HEAP"};
  29. $booch = $cgi_params{"BOOCH"};
  30. $dbtools = $cgi_params{"DBTOOLS"};
  31. $math = $cgi_params{"MATH"};
  32. $money = $cgi_params{"MONEY"};
  33. $view = $cgi_params{"VIEW"};
  34. $canvas = $cgi_params{"CANVAS"};
  35. $chart = $cgi_params{"CHART"};
  36. $net = $cgi_params{"NET"};
  37. $support = $cgi_params{"SUPPORT"};
  38. $training = $cgi_params{"TRAINING"};
  39. $consulting = $cgi_params{"CONSULTING"};
  40. $windows = $cgi_params{"WINDOWS"};
  41. $windowsnt = $cgi_params{"WINDOWSNT"};
  42. $macintosh = $cgi_params{"MACINTOSH"};
  43. $unix = $cgi_params{"UNIX"};
  44. $whichunix = $cgi_params{"WHICHUNIX"};
  45. $msvisual = $cgi_params{"MSVISUAL"};
  46. $borland = $cgi_params{"BORLAND"};
  47. $othercompiler = $cgi_params{"OTHERCOMPILER"};
  48. $whichcompiler = $cgi_params{"WHICHCOMPILER"};
  49. $database = $cgi_params{"DATABASE"};
  50. $developers = $cgi_params{"DEVELOPERS"};
  51. $programmer = $cgi_params{"PROGRAMMER"};
  52. $teamleader = $cgi_params{"TEAMLEADER"};
  53. $devmanager = $cgi_params{"DEVMANAGER"};
  54. $othermanager = $cgi_params{"OTHERMANAGER"};
  55. $specifymanager = $cgi_params{"SPECIFYMANAGER"};
  56. $deveffort = $cgi_params{"DEVEFFORT"};
  57.  
  58.     &html_header("Information request confirmation");
  59.     print "<IMG SRC=\"banner.gif\">";
  60.     print "<p>Your request for information has been sent to ";
  61.     print "the appropriate person. We will respond to your ";
  62.     print "request as soon as possible.</p>";
  63.     print "<P>Use the <B>Back</B> function to return to the ";
  64.     print "request form and home page.</P>";
  65.     print "<h3>Thank you for your interest in Rogue Wave.</h3>";
  66.     &html_trailer;
  67.  
  68. #    &html_header("Information request feedback");
  69. #    print "<p>You entered the following personal information:";
  70. #    print "<pre>   Name:       ", $name, "\n";
  71. #    print "   Title:      ", $title, "\n";
  72. #    print "   Company:    ", $company, "\n";
  73. #    print "   Address:    ", $address1, "\n";
  74. #    print "               ", $address2, "\n";
  75. #    print "   Telephone:  ", $telephone, "\n";
  76. #    print "   Fax:        ", $fax, "\n";
  77. #    print "   Email:      ", $email, "</pre>";
  78. #    print "<p>You made the following information requests:</p>";
  79. #    print "<pre>   Tools.h++:              ", $tools, "\n";
  80. #    print "   Heap.h++:               ", $heap, "\n";
  81. #    print "   Booch Components:       ", $booch, "\n";
  82. #    print "   DBtools.h++:            ", $dbtools, "\n";
  83. #    print "   Math.h++/LAPACK.h++:    ", $math, "\n";
  84. #    print "   Money.h++:              ", $money, "\n";
  85. #    print "   View.h++:               ", $view, "\n";
  86. #    print "   Canvas.h++:             ", $canvas, "\n";
  87. #    print "   Chart.h++:              ", $chart, "\n";
  88. #    print "   Net.h++:                ", $net, "\n\n";
  89. #    print "   Support contracts:      ", $support, "\n";
  90. #    print "   Training information:   ", $training, "\n";
  91. #    print "   Consulting information: ", $consulting, "</pre>";
  92. #    print "<p>You expressed the following statement of needs:</p>";
  93. #    print "<p>", $needs, "</p>";
  94. #    print "<h3>Thank you for your interest in Rogue Wave.</h3>";
  95. #    print "<hr><pre><a href=\"http://cold:8001/~betz/www/index.htm\">Home page</a>   ";
  96. #    print "<a href=\"http://cold:8001/~betz/www/rwpav/products/products.htm\">Product information</a></pre>";
  97. #    &html_trailer;
  98.  
  99.  
  100. open(SENDMAIL, "|mail marcs\@snl");
  101. #open(SENDMAIL, "|mail sales\@roguewave.com");
  102. print SENDMAIL <<"eom";
  103. Subject: howdy $subject
  104.  
  105. This message is from: 
  106.     $fname $lname
  107.     $title
  108.     $company
  109.     $address1
  110.     $address2
  111.     $city $state $zipcode
  112.     $telephone
  113.     $fax
  114.     $email
  115.  
  116. They have expressed interest in the following products and services:
  117.  
  118.     On products:
  119.         Tools.h++: $tools
  120.         Heap.h++: $heap
  121.         Booch Components: $booch
  122.         DBtools.h++: $dbtools
  123.         Math.h++/LAPACK.h++: $math
  124.         Money.h++: $money
  125.         View.h++: $view
  126.         Canvas.h++: $canvas
  127.         Chart.h++: $chart
  128.         Net.h++: $net
  129.  
  130.     On services:
  131.         Support: $support
  132.         Training: $training
  133.         Consulting: $consulting
  134.  
  135. They have provided the following project information:
  136.  
  137.     Platforms
  138.         Windows:  $windows
  139.         WindowsNT:  $windowsnt
  140.         Macintosh:  $macintosh
  141.         Unix --- version =  $whichunix
  142.  
  143.     Compilers
  144.         MS Visual C++:  $msvisual
  145.         Borland C++:  $borland
  146.         Other compiler:  $whichcompiler
  147.  
  148.     Databases:  $database
  149.  
  150.     Developers at site:  $developers
  151.  
  152.     Their position
  153.         Programmer:  $programmer
  154.         Team leader:  $teamleader
  155.         Development manager:  $devmanager
  156.         Other:  $specifymanager
  157.  
  158. Project Description:
  159.  
  160. $deveffort
  161. eom
  162. close SENDMAIL;
  163.  
  164. # Define the beginning of the HTML file.
  165.  
  166. sub html_header {
  167.     $document_title = $_[0];
  168.     print "Content-type: text/html\n\n";
  169.     print "<html><head>\n";
  170.     print "<title>$document_title</title>\n";
  171.     print "</head>\n";
  172.     print "<body>\n";
  173.     print "<h1>$document_title</h1>\n";
  174. }
  175.  
  176. # Define the end of the HTML file.
  177.  
  178. sub html_trailer {
  179.     print "</body>";
  180.     print "</html>";
  181. }
  182.